home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCSMQ.SRC < prev    next >
Text File  |  1990-11-03  |  4KB  |  237 lines
  1. ;\|
  2. ;FPCSMQ.SRC     Translated from FPCSMQ.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  11:52:47 AM  13/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(DOB1|S|8||)
  6.     define(DOB2|S|8||)
  7.     define(MEM_DOC|N|1||)
  8.     define(NO_CTR|N|4||)
  9.     define(YES_CTR|N|4||)
  10.     define(TOT_CTR|N|4||)
  11.     define(PERCENT|N|5|2|)
  12.     define(TO_DATE|S|8||)
  13.     define(DOC_NAME|A|30||)
  14.     define(TD|S|8||)
  15.     define(S_CTR|N|4||)
  16.     define(F_CTR|N|4||)
  17.     define(H_CTR|N|4||)
  18.     define(O_CTR|N|4||)
  19.     define(OPC|N|5|2|)
  20.     define(HPC|N|5|2|)
  21.     define(SPC|N|5|2|)
  22.     define(FRPC|N|5|2|)
  23.     define(TD|S|8||)
  24.     date(TD|G)
  25.     open(GPSETUP||0|)
  26.     open(PATIENT||0|)
  27.     open(RECALLS||0|)
  28. START:
  29.     mount(NEWS|S)
  30.     enter(TO_DATE||||N|N|N|||N)
  31.     DOB1 = (TO_DATE-23725)
  32.     DOB2 = (TO_DATE-9125)
  33.     enter(DOB1||||N|N|N|||N)
  34.     enter(DOB2||||N|N|N|||N)
  35.     MEM_DOC = (1)
  36.     trap(I|G|EXIT2)
  37.     gosub MOUNT
  38. STARTER:
  39.     find(B|HEADING||)
  40.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  41.     trap(P|S|SHEADING)
  42.     ptof
  43.     DATE.OF.BIRTH = (DOB1)
  44.     find(B|COD.PAT.NAME|EXIT|)
  45. TEST:
  46.     if COD[1] = ("") do
  47.         {
  48.         if COD.D[1] = (0) then goto NEXT
  49.         }
  50.     RECORD.NUMBER = (COD.REF)
  51.     find(M|RECORD.NUMBER|EXIT|)
  52.     pmsg(DATE.OF.BIRTH|1|1|N|N|S|)
  53.     if DOCTOR <> (MEM_DOC) goto NEXT
  54.     if SEX <> ("F") goto NEXT
  55.     if DATE.OF.BIRTH > (DOB2) goto NEXT
  56.     TOT_CTR = (TOT_CTR+1)
  57.     gosub FINDREC
  58. NEXT:
  59.     find(N|RECALLS|EXIT|)
  60.     goto TEST
  61. FINDREC:
  62. NO_IMDATE:
  63.     if SM_DATE < (TO_DATE-2005) do
  64.         {
  65.         pfmt(5|||N|N|)
  66.         clr(RECALLS|B)
  67.         ret
  68.         }
  69.     if SM_DATE > (TO_DATE) do
  70.         {
  71.         if COD[1] = ("HYS") do
  72.             {
  73.             TOT_CTR = (TOT_CTR-1)
  74.             ret
  75.             }
  76.         pfmt(5|||N|N|)
  77.         ret
  78.         }
  79.     if WHERE = ("S") then S_CTR = (S_CTR+1)
  80.     if WHERE = ("H") then H_CTR = (H_CTR+1)
  81.     if WHERE = ("F") then F_CTR = (F_CTR+1)
  82.     if WHERE = ("O") then O_CTR = (O_CTR+1)
  83.     YES_CTR = (YES_CTR+1)
  84.     pfmt(5|||N|N|)
  85.     clr(RECALLS|B)
  86.     ret
  87. NOCOD:
  88.     pfmt(6|||N|N|)
  89.     clr(RECALLS|B)
  90.     goto NEXT
  91. SHEADING:
  92.     pfmt(1|||N|N|)
  93.     pfmt(2|||N|N|)
  94.     pfmt(3|||N|N|)
  95.     pfmt(4|||N|N|)
  96.     ret
  97. MOUNT:
  98.     pchr(P|10)
  99.     pchr(P|11)
  100.     pchr(P|4)
  101.     mount(NEW|R|P)
  102.     pset(140|66|60)
  103.     pchr(P|1)
  104.     ret
  105. EXIT:
  106.     PERCENT = (YES_CTR/TOT_CTR*100)
  107.     pfmt(7|||N|N|)
  108.     pfmt(8|||N|N|)
  109.     pfmt(9|||N|N|)
  110.     pfmt(8|||N|N|)
  111.     pfmt(9|||N|N|)
  112.     SPC = (S_CTR/YES_CTR*100)
  113.     HPC = (H_CTR/YES_CTR*100)
  114.     FPC = (F_CTR/YES_CTR*100)
  115.     OPC = (O_CTR/YES_CTR*100)
  116.     pfmt(10|||N|N|)
  117.     pfmt(11|||N|N|)
  118.     pfmt(12|||N|N|)
  119.     pfmt(13|||N|N|)
  120.     TOT_CTR = (0)
  121.     TOT_CTR = (0)
  122.     YES_CTR = (0)
  123.     PERCENT = (0)
  124.     MEM_DOC = (MEM_DOC+1)
  125.     if MEM_DOC > (4) goto EXIT2
  126.     goto STARTER
  127. EXIT2:
  128.     run("recmenu")
  129. \R NEW     
  130. SMEAR TARGET REPORT FOR &                              ON &        FROM DOB &        TO &        PRINTED &
  131. =================================================================================================================================
  132. WOMANS NAME                 NHS.NUM         DOB          RECALL     SM_DATE    RES     WHERE
  133. =================================================================================================================================
  134. &                             &            &             &          &          &          &
  135. &                           &          NO RECORD FOR THIS PATIENT
  136. TOTAL AT RISK                  = &    (NOT INCLUDING HYSTERECTOMIES)
  137. TOTAL UP TO DATE               = &
  138. PERCENTAGE UP TO DATE          = &
  139. DONE AT SURGERY                = &     %&
  140. DONE AT HOSPITAL               = &     %&
  141. DONE AT FAMILY PLANNING CLINIC = &     %&
  142. DONE AT OTHER                  = &     %&
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178. \
  179. DOC_NAME
  180. TO_DATE
  181. DOB1
  182. DOB2
  183. TD
  184. PATIENT.NAME
  185. NHS.NUM
  186. DATE.OF.BIRTH
  187. COD.D[1]
  188. SM_DATE
  189. COD[1]
  190. WHERE
  191. PATIENT.NAME
  192. DATE.OF.BIRTH
  193. TOT_CTR
  194. YES_CTR
  195. PERCENT
  196. S_CTR
  197. SPC
  198. H_CTR
  199. HPC
  200. F_CTR
  201. FRPC
  202. O_CTR
  203. OPC
  204. \
  205. \STNEWS    
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.                             SMEARS
  213.                  FPC TARGET PRINT OUTS 11" PAPER
  214.              ╔═══════════════════════════════════════╗
  215.              ║                                       ║
  216.              ║             FPC TARGET DATE:&         ║
  217.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  218.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  219.              ║               DOCTOR NUMBER:&         ║
  220.              ╚═══════════════════════════════════════╝
  221.                                ESC-EXIT
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230. \
  231. TO_DATE
  232. DOB1
  233. DOB2
  234. MEM_DOC
  235. \
  236.  
  237.